From: Glenn Morris <rgm@gnu.org>
Date: Sun, 16 Jan 2011 02:34:57 +0000 (-0800)
Subject: * lisp/info-xref.el (info-xref-docstrings): Also skip directories.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5177
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=99be61f5782986c2958415ddf5386d99251cda7b;p=emacs.git

* lisp/info-xref.el (info-xref-docstrings): Also skip directories.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1912bf9ad0c..18ea8434f4c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-01-16  Glenn Morris  <rgm@gnu.org>
 
 	* info-xref.el (info-xref-docstrings): Replace cl function.
+	Also skip directories.
 
 2011-01-16  Kevin Ryde  <user42@zip.com.au>
 
diff --git a/lisp/info-xref.el b/lisp/info-xref.el
index cdeba932eda..e317b10bcd6 100644
--- a/lisp/info-xref.el
+++ b/lisp/info-xref.el
@@ -493,6 +493,7 @@ the sources handy."
      (setq filename-list
            (dolist (file filename-list (nreverse newlist))
              (or (info-xref-lock-file-p file)
+                 (file-directory-p file)
                  (push file newlist))))
      (unless filename-list
        (error "No files: %S" pattern))